home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / map100p.zip / MAP.INT < prev    next >
Text File  |  1991-11-02  |  1KB  |  58 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-}
  2.  
  3. Unit MAP;
  4.  
  5. INTERFACE
  6.  
  7. Uses WOW;
  8.  
  9. Type
  10.  
  11.       Str16         = string[16];
  12.  
  13.       FlagPos       = 1..16;
  14.  
  15.       NibblePos     = 1..4;
  16.  
  17.       Flags         = word; { True/False }
  18.  
  19.  
  20.   SplitWord = record
  21.                 Hi,
  22.                 Lo: Byte;
  23.               end;
  24.  
  25.  
  26. const
  27.       MapVer       = '1.00';
  28.  
  29.       Function  FlagsOn       (F : Flags; NUM : FlagPos)
  30.                               : Boolean;
  31.  
  32.       Function  GetDoubleByte ( VAR DB : word; NUM : NibblePos)
  33.                               : byte;
  34.  
  35.       Function  GetHiNibble   ( DN : byte)
  36.                               : byte;
  37.  
  38.       Function  GetLoNibble   ( DN : byte)
  39.                               : byte;
  40.  
  41.       Procedure SetDoubleByte ( VAR DB : word; NUM : NibblePos; Value: Byte);
  42.  
  43.       Procedure SetFlags      ( VAR F : Flags; NUM : FlagPos; SW: Boolean);
  44.  
  45.       Function  SetHiNibble   ( DN,Hi: byte)
  46.                               : byte;
  47.  
  48.       Function  SetLoNibble   ( DN,Lo: byte)
  49.                               : byte;
  50.  
  51.       Function  SwapNibbles   ( DN : byte)
  52.                               : byte;
  53.  
  54.       Procedure ToggleFlags   ( VAR F : Flags; NUM : FlagPos);
  55.  
  56.       Function  Flags2Str     ( F: Flags)
  57.                               : str16;
  58.